home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr09 / ged2br.zip / GED2BR.BAS < prev    next >
BASIC Source File  |  1993-06-16  |  2KB  |  48 lines
  1. PRINT "    ╔═══════════════════════════════════════════════════════╗ "
  2. PRINT "    ║                        GED2BR                         ║ "
  3. PRINT "    ║             GEDCOM to PC-Browse converter             ║ "
  4. PRINT "    ║          (C) Copyright 1989 by Kent Riggins           ║ "
  5. PRINT "    ╚═══════════════════════════════════════════════════════╝ "
  6. PRINT
  7. PRINT "    ╔═══════════════════════════════════════════════════════╗"
  8. PRINT "    ║                      PC-Browse (tm).                  ║"
  9. PRINT "    ║  (C) Copyright 1988-1989 by Bob Wallace, Quicksoft.   ║"
  10. PRINT "    ║                    All Rights Reserved                ║"
  11. PRINT "    ║                800/888-8088, 206/282-0452.            ║"
  12. PRINT "    ║           219 First Ave N #224, Seattle WA 98109      ║"
  13. PRINT "    ╚═══════════════════════════════════════════════════════╝"
  14. PRINT " ┌─────────────────────────────────────────────────────────────┐"
  15. PRINT " │GEDCOM to PC-Browse converter.  This program will do a simple│"
  16. PRINT " │conversion that will make using PC-Browse easier to use with │"
  17. PRINT " │GEDCOM files. The Original file is not changed.  Each GEDCOM │"
  18. PRINT " │record will become a page in PC-Browse and all GEDCOM        │"
  19. PRINT " │cross -references will become Trigger's and Target's for     │"
  20. PRINT " │PC-browse. If you own Commsoft's Roots III and R2GED use the │"
  21. PRINT " │/FT option when converting your data to GEDCOM format for a  │"
  22. PRINT " │ more readable file.                                         │"
  23. PRINT " └─────────────────────────────────────────────────────────────┘"
  24.  
  25. INPUT "     Enter path and file for input: ", infile$
  26. INPUT "     Enter path and file for output: ", outfile$
  27.  
  28.  
  29.  
  30. OPEN infile$ FOR INPUT ACCESS READ AS #1
  31. OPEN outfile$ FOR OUTPUT ACCESS WRITE AS #2
  32. PRINT #2, "                                                                               [BR= /I64.64 /J64.64 /K0.0]"
  33. PRINT #2,
  34. PRINT #2,
  35. PRINT #2,
  36. PRINT #2,
  37. PRINT #2,
  38. PRINT #2, "This is a PC-Browse version of the file ", infile$
  39. DO WHILE (NOT EOF(1))
  40.    LINE INPUT #1, a$
  41.    IF VAL(a$) = 0 THEN
  42.       PRINT #2, CHR$(12)
  43.    END IF
  44.    PRINT #2, a$
  45. LOOP
  46. CLOSE
  47.  
  48.